﻿
Imports MICROFORMA.BEL
Imports MICROFORMA.DAL



Public Class PermisoBL

    Private _Permiso_DA As PermisoDA = Nothing

    Public Function List() As PermisoBECollection
        Return _Permiso_DA.List
    End Function

    Public Function getList(ByVal _idRol As Int16) As DataTable
        Return _Permiso_DA.GetList(_idRol)
    End Function

    Public Sub New()
        _Permiso_DA = New PermisoDA
    End Sub

End Class



